home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v8n03.arc
/
WHATEVER.EX2
< prev
Wrap
Text File
|
1989-01-18
|
520b
|
22 lines
PROGRAM Whatever;
USES Crt, TAccess,
{$IFDEF AddCust} AddCust , {$ENDIF}
{$IFDEF DelCust} DelCust , {$ENDIF}
{$IFDEF DispCust} DispCust , {$ENDIF}
Menu;
VAR QuitFlag : Boolean;
BEGIN
Initialize;
QuitFlag := False;
REPEAT
CASE GetMenuChoice OF
{$IFDEF AddCust} 1 : AddACustomer ; {$ENDIF}
{$IFDEF DelCust} 2 : DeleteACustomer ; {$ENDIF}
{$IFDEF DispCust} 3 : DisplayACustomer ; {$ENDIF}
4 : QuitFlag := True
ELSE
END
UNTIL QuitFlag;
Cleanup
END.